home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 39 / Issue 39.iso / pc / PCSoftware / ColdFusion Studio 4.5.1 Trial / ColdFusionStudio_Eval.exe / data1.cab / Wizards / CFML / DataEntry_EntryForm.wml < prev    next >
Encoding:
Text File  |  2000-04-03  |  2.1 KB  |  54 lines
  1. <HTML><HEAD>
  2.     <TITLE>$${ApplicationName} - Entry Form</TITLE>
  3. </HEAD><BODY bgcolor="ffffff">
  4.  
  5. <FONT size="+1">$${ApplicationName}</FONT> <BR>
  6. <FONT size="+2"><B>Entry Form</B></FONT>
  7.  
  8. <!--- Entry form --->
  9. <FORM action="$${SafeApplicationName}_EntryAction.cfm" method="post">
  10.  
  11. <TABLE>
  12. <WIZSET i = 0>
  13. <WIZLOOP index="CurrentField" list="$${EntryFields}">
  14.     <WIZSET i = i + 1>
  15.     <!---- field is in format 'sTable.sField=sType;nSize;bRequired' ---->
  16.     <WIZSET Separator1Pos = Find( CurrentField, '.' )>
  17.     <WIZSET Separator2Pos = Find( CurrentField, '=' )>
  18.     <WIZSET Separator3Pos = Find( CurrentField, ';' )>
  19.     <WIZSET Buffer = Right( CurrentField, Len(CurrentField) - Separator3Pos )>
  20.     <WIZSET Separator4Pos = Len(CurrentField) - Len(Buffer) + Find( Buffer, ';' )>
  21.     <WIZSET TableName = Mid( CurrentField, 1, Separator1Pos - 1 )>
  22.     <WIZSET FieldName = Mid( CurrentField, Separator1Pos + 1, Separator2Pos - Separator1Pos - 1 )>
  23.     <WIZSET FieldType = Mid( CurrentField, Separator2Pos + 1, Separator3Pos - Separator2Pos - 1 )>
  24.     <WIZSET FieldSize = Mid( CurrentField, Separator3Pos + 1, Separator4Pos - Separator3Pos - 1 )>
  25.     <WIZSET FieldRequired = Right( CurrentField, Len(CurrentField) - Separator4Pos )>
  26.  
  27.     <!--- Field: $${TableName}.$${FieldName} --->
  28.     <TR>
  29.     <TD valign="top"> $${FieldName} </TD>
  30.     <TD>
  31.     <WIZIF FieldType EQ 'MEMO'>
  32.         <TEXTAREA name="$${FieldName}" cols=50 rows=5></TEXTAREA>
  33.     <WIZELSEIF FieldType EQ 'BIT'>
  34.         <INPUT type="radio" name="$${FieldName}" value="1" checked> Yes
  35.         <INPUT type="radio" name="$${FieldName}" value="0"> No
  36.     <WIZELSE>
  37.         <INPUT type="text" name="$${FieldName}"<WIZIF FieldSize NEQ '0'> maxLength="$${FieldSize}"</WIZIF>>
  38.         <WIZIF FieldType EQ 'DATETIME'>(i.e. 12/31/97)</WIZIF>
  39.     </WIZIF>
  40.     </TD>
  41.     <WIZIF FieldType EQ 'DATETIME'><INPUT type="hidden" name="$${FieldName}_date">
  42.     <WIZELSEIF FieldType EQ 'FLOAT'><INPUT type="hidden" name="$${FieldName}_float">
  43.     <WIZELSEIF FieldType EQ 'INT'><INPUT type="hidden" name="$${FieldName}_integer">
  44.     </WIZIF
  45.     ></TR>
  46. </WIZLOOP>
  47. </TABLE>
  48. <P>
  49. <INPUT type="submit" value="Insert Data">
  50.  
  51. </FORM>
  52.  
  53.  
  54. </BODY></HTML>